home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS036.dsk / BACH.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  13 lines
  1. 0  TEXT 
  2. 1 X = 56
  3. 2  DIM P(X),D(X)
  4. 19  DATA   173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96  
  5. 20  FOR A = 770 TO 790: READ I: POKE A,I: NEXT A
  6. 100  DATA  243,220,197,183,220,197,243,160,243,220,197,183,220,197,243,160,160,144,128,120,144,128,160,107,160,144,128,120,144,128,160,120,69,78,88,95,78,88,69,78,88,95,107,120,95,107,88,95,107,120,128,144,120,128,107,120
  7. 150  DATA  27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,0
  8. 200  FOR I = 1 TO 56: READ P(I): NEXT 
  9. 210  FOR I = 1 TO 56: READ D(I): NEXT 
  10. 215  GR 
  11. 220  HOME : VTAB 21: PRINT "BACH BY MARCUS BROWN": FOR I = 1 TO 56: POKE 768,P(I): POKE 769,D(I): COLOR=  RND(1) *15: PLOT  RND(9) *39, RND(9) *39: CALL 770: NEXT 
  12. 230  HOME : VTAB 21: PRINT "HIT '0' TO RETURN TO MENU": PRINT "OR ANY OTHER KEY TO REPLAY BACH": GET S$: IF S$ = "0"  THEN  PRINT : PRINT : PRINT : PRINT : PRINT "<CTRL-D>RUN MENU"
  13. 240  GOTO 220